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Important Note 



Be sure to make BACKUP copies of both FORTRAN 
diskettes before you begin using the FORTRAN 

Package. 
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SECTION 1 
Introduction 



The TRS-80 FORTRAN Package contains the following 
software and documentation. 



Disk 

#1 

#2 
#2 

#1 



Software 



Documentation 



TRS-80 FORTRAN Compiler TRS-80 FORTRAN User's Manual 

FORTRAN-80 Reference Manual 
LINK-80 Linking Loader LINK-80 Reference Manual 



FORLIB/REL FORTRAN-80 
Subroutine Library 

EDIT-80 Text Editor 



FORTRAN-80 Reference Manual 
Appendix E 

EDIT-80 User's Guide 



I. 
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1 . 1 Sample Session 

This sample session will give you a chance to exercise 
the FORTRAN package, so you'll see how all the parts 
fit together. Ideally, you should have both diskettes 
in the System (Drives and 1) at once, so you won't 
have to swap diskettes. Single drive users should refer 
to the F80 Compiler Manual before trying this sample 
session, since some procedures will need to be changed. 

DOS READY should be displayed. 

STEP 1: Place the diskette #1 in the drive and enter 
the command: 

EDIT 
This loads the EDIT-80 text editor. 
EDIT-80 will respond with 

FILE: 

If you are using the program in Figure 1 , 
type the filename TEMP/FOR followed by the 
<break> key. If you are using your own 
FORTRAN program, type any legal TRSDOS 
filename. Always follow the filename with 
<break> when creating a new file and with 
<enter> when reading in an existing file. 

After EDIT-80 prints the message: 

Creating 

Version x.x 

Copyright 1977,78 (c) by Microsoft 

Created: xxxx 

xxxx Bytes free 

* 

enter the command: 



EDIT-80 will print 00100, which is the 
first line number. 

STEP 2: Start entering the FORTRAN program as 
listed in Figure 1 (or enter your own 
FORTRAN program). EDIT-80 will type the 
next line number each time you <enter> a 
line. 

While you're typing in your program, all 
of EDIT-80' s editing capabilities are 
available to you. Read through the 
EDIT-80 User's Guide. You'll see how easy 
it is to insert and delete lines, modify 
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text, and search for text. This is a good 
chance to experiment with EDIT- 80. 

When writing any FORTRAN program for your 
TRS-80, use the Microsoft FORTRAN-80 
Reference Manual to determine the correct 
syntax and usage of all FORTRAN 
statements. 

STEP 3: When you are finished typing in the 
program, type a <break> after the next 
available line number to return to EDIT-80 
command level. To exit the editor, enter 
the command : 

E 

The program you typed in is now saved with 
the name TEMP/FOR. (TEMP is the name you 
specified in Step 1 ; /FOR is a default 
extension supplied by the Editor.) 
TEMP/FOR is called the source file; it is 
ready to be compiled. 

STEP 4: Syntax check. 

Before proceeding, it is a good idea to 
check the program for syntax errors. 
Removing syntax errors now eliminates a 
possible recompilation later. To perform 
the syntax check on the source file called 
TEMP/FOR, place diskette #1 in the disk 
drive and type: 

F80 =TEMP 

F80 is the filename of the Compiler. =TEMP 
is a parameter telling the Compiler which 
file to compile. Since no extension is 
supplied, F80 uses the default extension 
/FOR. No object or list file is specified, 
so the Compiler will not output either. 
This is just a "dry run" to see if errors 
are generated. 

If there are errors, KILL the file 
TEMP/FOR and carefully repeat Steps 1 
through 4. (For this exercise, we aren't 
ready to use the Editor's convenient 
editing commands, described fully in the 
EDIT-80 User's Guide.) 

During processing, $MAIN will be displayed. 
When the Compiler has finished, DOS READY 
will be displayed. 
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STEP 5: Compile the source file. 

To compile the source file called TEMP/FOR 
and produce an object and listing file, 
type the following: 

F80 TEMP , TEMP=TEMP 

This time, in addition to specifying the 
target file (=TEMP with default extension 
/FOR) , we specify output files for 
relocatable object code and for a listing 
file (showing source statements and the 
associated Compiler actions) . The object 
file TEMP gets the default extension /REL, 
and the listing file TEMP gets the default 
extension /LST. For details of syntax, see 
Section 2 of this manual. See Figure 2 
below for a copy of the listing file 
TEMP/LST generated by TEMP/FOR. 

STEP 6: Load and execute the program. 

To load the program into memory and 
execute it, put diskette #2 in the disk 
drive and type : 

L80 TEMP-G 

This command tells TRSDOS to load and run 
LINK-80, which in turn loads the object 
file TEMP/REL (LINK-80 provides the 
default extension /REL) into the correct 
memory locations; searches the system 
library to resolved any undefined 
references; and executes the program. In 
this case, LINK-80 will not create a 
command file. Figure 3 shows a sample run. 

STEP 7: Save the object code. 

The object file, once it has been loaded 
by LINK-80, is in a form that can be 
executed by the TRS-80 computer. To save 
a copy of this file, type: 

L80 TEMP-N,TEMP-E 
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This command creates a corur.and file which 
can be run directly under TRSDOS. TEMP-N 
tells LINK-80 to name the file TEMP/CMD; 
TEMP-E tells LINK-80 to load the object 
file TEMP/REL. Both /CMD and /REL are 
default extensions. 

You can now load and run the program as a 
TRSDOS command file, typing: 

DOS READY 

TEMP <ENTER> 



FIGURE 1 FORTRAN SOURCE FILE - TEMP/FOR 



00100 C CONVERT FAHRENHEIT TO CENTIGRADE 

INTEGER F 
WRITE (5, 5) 
FORMAT (33H FAHRENHEIT CENTIGRADE) 

DO 20 F=20,65,5 
C=5./9.*(F-32) 

WRITE(5,10)F,C 

FORMAT (12X,I2,11X,F6. 3) 

CONTINUE 

END 



■(This is the echo 
from the <break> key.) 



00200 




00300 




00400 


5 


00500 




00600 




00700 




00800 


10 


00900 


20 


01000 




01100 


$ - 
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FIGURE 2 LISTING FILE TEMP/LST 



1. FORTRAN-80 VER. 3. 2 COPVRIGHT 1978 CO BV MICROSOFT 

2 BVTES i 3699 

-• fPERTED " i 5 — FEB— F'^ 

4. ©SI©© C.'~ CONVERT FAHRENHEIT TO CENTIGRADE 

5 0020O INTEGER F 

6. 00300 WRITE<5, 5> 

7 * ** ** 0000"' LD BC, **L 

Q * :+: :+: :+: :+: 3 '' -J P * I N I T 

•=) ***** 00 06"" LD DE, 5L 



10. ***** 0009'' LD 



20 



l=-fo 



00 10 84 1 



HL,C 05 00 3 

•1 -1 * * * :+: :+: C " C A L L * N 2 _ _ • , 

12. 00400 5 FORMAT C33H FAHRENHEIT LENT IuRhDE. , 

13. ***** 000F "' CALL $ND 

I.4' 00500 DO 20 F=20, 65, 5 

15 PtPi^OO C=5 ,'9. *<F-32> 

16. ***** 0012" LD HL, 0014 

■■) 7 * :+ : * * * 0015 " L D < F > , H L. 

18. 0O700 WRITE-: 5, 10 >F.. C 

J9 ***** 00 1 S "' LD HL, < F > 

***** 00 IB LD DE, FFE0 

1 ***** 00 IE "' ADD HL, DE 

'-■ ***** O0^F LD <T 0O0000 ■'• HL _ 

S ***** 0022 LD HL, C 00 ©© ■=-« o-O 

4 ***** 0025" CALL $L1 

;5 ***** 0028 •' LD HL, C 08 

***** O f1 2 B '"' CALL *DB 

***** 002E- LD HL. -::T: O00000-' 

8. ***** ©Oil " CALL. *MH_ 

9 ***** 00154" LD HL • U 

@ ***** 0037' CALL * I 1 

1 ***** PI03A '" LD DE.. 10L 

2. ***** 003D' LD Hl,C 05 ©0 3 

-;■ *H ■:*** PlPl40" CAL-L *W2 

•4 flfiRfiti 10 FORMAT- 12!-:, 12, 11X, F6 S> 

Pi 04. "5'' LD DE.F 

LD HL..C 01 ew;i 

0049'" LD A. 02 

***** 0O4B " CALL *I@ 

^q *h *** 0O4E LD DE, C 

40. ***** 005:1" LD HL.C 01 yy] 

41 ***** 0054 LD A, Ok' 

42 ***** 0056" CALL * 1 1 



***** 

***** 0046 

***** 



43 ***** 0059" CALL *ND 

44 0090O 20 CONTINUE 
45. 01800 END 



-continued- 
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46. 
47. 
48. 
49. 



•_■ 


W 


or 


1. 


5 


cd. 


5 


: m' , 


5 


4. 


=; 


5. 




6 


«5 


"7 







;+::+::+::+::+: 



+::+::+::+: 
:+::+::+::+::+: 
+::+::+::+::+: 
+::+::+::+::+: 
:+::+::+::+::+: 



:+::+::+::+::+: 
;+::+::+:;+::+: 



:+::+::+::+ 



:+: :+::+: :+::+: 



005C '" 


LD 




HL, '::F> 


80 5 F "' 


LD 




DE, 000 


©062 " 


RDD 




HL, DE 


0063:'' 


LD 




H, 41 


0065 ' 


SUB 




L 


0066 " 


LD 




R, 00 


00 68"' 


SBC 




H 


0069" 


JP 




P, 0015 


00 6 C"' 


CALL 




*EX 


006F ■■'" 


0100 






0071 " 


0500 






0073" '" 


0000^ 


_'0£ 


~" 


0077"' 


000010E 


4 



fc.0 
61. 



PROGRfiM UNIT LENGTH=007B C123> BVTE: 
DHTR RRER LENGTH=0040 <64 ':< BVTES 



S U B R U T 1 1 i E S R E F E R E N C E D 



64. 






65. 


*I1 




66. 


*M2 




67. 


*DB 




68. 


*EX 




€3. 






70. 


VRRIRBLE 


S 


71. 






1** C^. - 


F 


0001 " 








74. 


LABELS : 




75. 






76 


**L 


0006 '" 


77 


10L 


©02 F" 



*I0 

*ND 
*MR 



*INIT 

*L1 
*T1 



L : 



^L 



002y 



000 < 



T " 000000 



201. 



0W5I. 



L 
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FIGURE 3 TEMP/FOI 


* PROGRAM OUTPUT 


FAHRENHEIT 


CENTIGRADE 


20 


-6.667 


25 


-3.889 


30 


-1.111 


35 


1.667 


40 


4.444 


45 


7.222 


50 


10.000 


55 


12.778 


60 


15.556 


65 


18.333 



; - ' v ■ , : 

■■-■; . .,:. -'■.■■;••'■■.■. ■ 
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The TRS-80 FORTRAN Package provides a lot more 
capability than is demonstrated in this short 
session. Keep experimenting, and you'll be 
pleasantly surprised at how much computing power 
has been added to your TRS-80. 



1.2 Note on TRS-80 FORTRAN Manuals 

The FORTRAN-80 Reference Manual is strictly a 
reference for the syntax and semantics of the 
TRS-80 FORTRAN language. It is not intended as a 
tutorial on FORTRAN programming. If you are new to 
FORTRAN and need help learning the language, we 
suggest: 

1. "Guide to FORTRAN- IV Programming" by Daniel 
McCracken (Wiley, 19 65) 

2. "Ten Statement FORTRAN Plus FORTRAN IV" by 
Michael Kennedy and Martin B. Solomon 

(Prentice-Hall, 1975, Second Edition) 

3. "FORTRAN" by Kenneth P. Seidel (Goodyear, 
1972) 

4. "FORTRAN IV, A Self-Teaching Guide" by 
Jehosua Friedmann, Philip Greenberg, and 
Alan Hoffbert (John Wiley & Sons, Inc., 1975) 

5. "FORTRAN, A Structured, Disciplined Style" by 
Gordon B. Davis and Thomas R. Hoffman 

(McGraw-Hill Book Company, 1978) 

The LINK-80 Manual is strictly a reference for the 
commands and switches available. 



TRS- u 
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SECTION 2 
TRS- 80 FORTRAN Compiler 



If you followed the sample session, you are becoming 
familiar with the software in your TRS- 80 FORTRAN Package. 
Now let's look specifically at the TRS- 80 FORTRAN compiler. 

2. 1 Running the Compiler 

When you give TRSDOS the command 

F80 

(diskette #1 must be in the disk drive), you are 
running the TRS-80 FORTRAN compiler. The FORTRAN 
compiler takes a FORTRAN program (source file) and 
compiles it to generate a relocatable object file, 
that is, a file that is in machine code. When the 
compiler is ready to accept commands, it prompts 
the user with an asterisk. To exit the compiler, 
use the <break> key. 

A command may also be typed on the same line as the 
invocation. This is called a "command line." We 
did this in the Sample Session when we typed the 
command line: 

F80 =TEMP 

After executing a command line, the compiler 
automatically exits to the operating system. 



2. 2 Command Format 

A compiler command conveys the name of the source 
file you want to compile, and what options you want 
to use. Here is the format for a compiler command 
(square brackets indicate optional) : 

fobiect filename] [,. listing filename] ^source filename [-switch. .. ] 



i:i;U:narw: ; . ..• , : , .-: ■..■ .-.<-■. ■ =■:!.' J. • •• it i . 1 * you 

are using the compiler's default 

extensions, it is not necessary to specify 
an extension in a compiler command. 



J F 
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Let's look individually at each part of 
compiler command: 



the 



1. Object filename 

To create a relocatable object file, this part 
o of the command must be included. It is simply 
the name that you want to call the object file. 
The default extension for the object filename 
is /REL. 

2. Listing filename 

To create a listing file, this part of the 
command must be included. It is simply the 
name that you want to call the listing file. 
The default extension for the listing file is 
/LST. 

3. Source filename 

A compiler command must always include a source 
filename — that is how the compiler "knows" 
what to compile. It is simply the name of a 
FORTRAN program you have saved on disk. The 
default extension for a FORTRAN source filename 
is /FOR. The source filename is always 
preceded by an equal sign in a compiler 
command . 



Examples (asterisk is typed by F80) 
*=TEST 



*TEST,TEST=TEST 



Compile the program TEST/FOR 
without creating an object 
file or listing file. 

Compile the program TEST/FOR. 
Create a relocatable object 
file called TEST/REL and a 
listing file called TEST/LST. 



*, TEST. PASS=TEST. PASS Compile the program TEST 

/FOR. PASS and create a 
listing file called 
TEST/LST. PASS (No object file 
created. ) 



*TESTOBJ=TEST 



Compile the program TEST/FOR 
and create an object file 
called TESTOBJ/REL. (No 
listing file created.) 



Switch 

A switch on the end of a command specifies a 
special parameter to be used during 
compilation. Switches are always preceded by a 
dash (-) . More than one switch may be used in 
the same command. The available switches are: 
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Switch 







Action 

Print all 
octal. 



listing addresses in 



H 



N 



M 



Print all listing addresses in 
hexadecimal (default condition) . 

Do not list the object code that is 
generated. List only the FORTRAN 
source code. 

Each -P allocates an extra 100 
bytes of stack space for use during 
compilation. Use -P if stack 
overflow errors occur during 
compilation. Otherwise not needed. 

Specifies to the compiler that the 
generated code should be in a form 
which can be loaded into ROMs. 
When a -M is specified, the 
generated code will differ from 
normal in the following ways: 

1. FORMATS will be placed in the 
program area, with a "JMP" around 
them. 

2. Parameter blocks (for 
subprogram calls with more than 3 
parameters) will be initialized at 
runtime, rather than being 
initialized by the loader. 



Examples : 
*CT.ME,CT.ME=CT.ME-0 



*CT,CT=CT-N 



Compile the program 
CT/FOR.ME. Create a listing 
file called CT/LST.ME and an 
object file called CT/REL.ME. 
The addresses in the listing 
file will be in octal. 

Compile the program. CT/FOR. 
Create an object file called 
CT/REL and a listing file 
called CT/LST. The listing 
file will contain only the 
FORTRAN source statements, 
not the generated object 
code. 
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*MAX10=MAX10-P-P Compile the program MAX10/FOR 

and create an object file 
called MAX10/REL. The 
compiler is allocated 200 
extra bytes of stack space. 



NOTE 

If a FORTRAN program is intended for ROM, 
the programmer should be aware of the 
following ramifications: 

1 . DATA statements should not be used to 
initialize RAM. Such initialization is 
done by the loader, and will therefore 
not be present at execution. Variables 
and arrays may be initialized during 
execution via assignment statements, or 
by READing into them. 

2. FORMATS should not be read into during 
execution. 

3. If the standard library I/O routines 
are used, DISK files should not be 
OPENed on any LUNs other than 6, 7, 8, 
9, 10. If other LUNs are needed for 
Disk I/O, $LUNTB should be recompiled 
with the appropriate addresses pointing 
to the Disk driver routine. 

A library routine, $INIT, sets the stack 
pointer at the top of available memory (as 
indicated by the operating system) before 
execution begins. 

The calling convention is: 

LXI B,<return address> 
JMP $INIT 

If the generated code is intended for some 
other machine, this routine should probably 
be rewritten. The source of the standard 
initialize routine is provided on the disk 
as "INIT/.MAC". Only the portion of this 
routine which sets up the stack pointer 
should ever be modified by the user. The 
FORTRAN library already contains the 
standard initialize routine. 
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2. 3 Input/Output Device Names 



In FORTRAN I/O statements (READ and WRITE), LUNs 1, 3, 
4, and 5 default to the console/keyboard, LUN 2 defaults 
to the line printer, and LUNs 6-10 default to the disk 
drives. 
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SECTION 3 
TRS-80 FORTRAN Disk Files 

SEE ALSO FORTRAN-80 REFERENCE MANUAL, SECTION 8.3. 
3 - 1 Default Disk Filenames 

TRS-80 FORTRAN may access either random or 

sequential disk files. Any disk file that is 

OPENed by a READ or WRITE statement is given a 
default filename that depends on the LUN: 

LUN Default Filename 

6 FORT0 6/DAT 

7 FORT 07 /DAT 

8 FORT 8 /DAT 

9 FORT 09 /DAT 
10 FORT 10 /DAT 

3.2 CALL OPEN 

Instead of using READ or WRITE, a disk file may be 

OPENed by calling the OPEN subroutine (see the 

FORTRAN-80 Reference Manual, Section 8.3.2). The 
format of an OPEN call is: 

CALL OPEN (LUN, Filename, Reclen) 

where : 

LUN = a Logical Unit Number to be associated with 
the file (must be an Integer constant or Integer 
variable with a value between 1 and 10). 

Filename = an ASCII name which TRSDOS will 
associate with the file. The Filename should be a 
Hollerith or Literal constant, or a variable or 
array name where the variable or array contains the 
ASCII name. The Filename should be in the form 
normally required by TRSDOS, 

f ilename/ext. pas sword: drive # 

and it should be terminated with a non-alpha 
character, preferably a blank. 

Reclen = The number of bytes you wish to specify 

(up to 256) as the record length. The default 

record length is 128 bytes. Reclen must be an 

Integer constant or Integer variable. If zero is 



TRS-80 FORTRAN User's Manual Page 20 

supplied for Reclen, the record length will be 256 
bytes. 

The following are examples of valid OPEN calls s 
CALL OPEN (6, 'TIME/DAT. JULY: 1 ',256) 
CALL OPEN (7, "COUNT/NUM ',200) 
CALL OPEN (1,'TESTQ/MIN:2 ',100) 
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SECTION 4 
Error Messages 

4 " 1 FORTRAN Compiler Error Messages 

The FORTRAN-80 Compiler detects two kinds of 
errors: Warnings and Fatal Errors. When a Warning 
is issued, compilation continues with the next item 
on the source line. When a Fatal Error is found, 
the compiler ignores the rest of the logical line, 
including any continuation lines. Warning messages 
are preceded by percent signs (%) , and Fatal Errors 
by question marks (?). The editor line number, if 
any, or the physical line number is printed next. 
It is followed by the error code or error message. 

Example: 

?Line 25: Mismatched Parentheses 

%Line 16: Missing Integer Variable 

When either type of error occurs , the program 
should be changed so that it compiles without 
errors. No guarantee is made that a program that 
compiles with errors will execute sensibly. 

Fatal Errors : 

Error 

Number Message 

100 Illegal Statement Number 

101 Statement Unrecognizable or Misspelled 

102 Illegal Statement Completion 

103 Illegal DO Nesting 

104 Illegal Data Constant 

105 Missing Name 

106 Illegal Procedure Name 

107 Invalid DATA Constant or Repeat Factor 

108 Incorrect Number of DATA Constants 

109 Incorrect Integer Constant 

110 Invalid Statement Number 

1 1 1 Not a Variable Name 

112 Illegal Logical Form Operator 

113 Data Pool Overflow 

114 Literal String Too Large 

115 Invalid Data List Element in I/O 

116 Unbalanced DO Nest 

117 Identifier Too Long 

118 Illegal Operator 

119 Mismatched Parenthesis 
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120 consecutive Operators 

121 Improper Subscript Syntax 

122 Illegal Integer Quantity 

123 Illegal Hollerith Construction 

124 Backwards DO reference _ 

125 Illegal Statement Function Name 

126 Illegal Character for Syntax 

127 Statement Out of Sequence 

128 Missing Integer Quantity 

129 Invalid Logical OP erato ^ rFR or REAL or 

130 Illegal Item Following INTEGER or Kfc/u, u 

131 Premature End Of File on Input Device 

132 Illegal Mixed Mode Operation 

133 Function Call with No Parameters 

134 Stack Overflow . „ 

135 Illegal Statement Following Logical IF 



Warnings : 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

.18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 
30 
32 
33 



Duplicate Statement Label 

Illegal DO Termination 

Block Name = Procedure Name 

Array Name Misuse 

COMMON Name Usage 

Wrong Number of Subscripts 

Array Multiply EQUIVALENCE* within a Group 

Multiple EQUIVALENCE of COMMON 

COMMON Base Lowered 

Non-COMMON Variable m BLOCK . DAIA 

Empty List for Unformatted WRITE 

Non-Integer Expression nn ara+nr 

Operand Mode Not Compatible with Operator 

Mixing of Operand Modes Not Allowed 

Missing Integer Variable 

Missing Statement Number on FORMAT 

Zero Repeat Factor 

Zero Format Value 

Format Nest Too Deep , 

Statement Number Not FORMAT Associated 

Invalid Statement Number Usage 

No Path to this Statement 

Missing Do Termination 

Code Output in BLOCK DATA 

Undefined Labels Have Occurred 

RETURN in a Main Program 

STATUS. Error on READ 

Invalid Operand Usage 

Function with no Parameter 

Hex Constant Overflow 

Division by Zero 

Arrav Name Expected „„~ TV r, 

Illegal Argument to ENCODE/DECODE 



i | 



TRS-80 FORTRAN User's Manual Page 2 3 



4. 2 FORTRAN Runtime Error Messages 

During execution of a FORTRAN program one or more 
of the following errors could occur. Fatal errors 
cause execution to cease. Execution continues 
after a warning error. However, execution will 
cease after 20 warnings. Runtime errors are 
surrounded by asterisks as follows 



Warning Errors : 

IB Input Buffer Limit Exceeded 

TL Too Many Left Parentheses in FORMAT 

OB Output Buffer Limit Exceeded 

DE Decimal Exponent Overflow 

(Number in input stream had 

an exponent larger than 99) 
IS Integer Size Too Large 
BE Binary Exponent Overflow 
IN Input Record Too Long 
OV Arithmetic Overflow 
CN Conversion Overflow 

on REAL to INTEGER Conversion 
SN Argument to SIN Too Large 
A2 Both Arguments of ATAN2 are 
10 Illegal I/O Operation 

BI Buffer Size Exceeded During Binary I/O 
RC Negative Repeat Count in FORMAT 

Fatal Errors: 

ID Illegal FORMAT Descriptor . 

FO FORMAT Field Width is Zero 

MP Missing Period in FORMAT 

FW FORMAT Field Width is Too Small 

IT I/O Transmission Error 

ML Missing Left Parenthesis in FORMAT 

DZ Division by Zero, REAL or INTEGER 

LG Illegal Argument to LOG Function 

(Negative or Zero) 

SQ Illegal Argument to SQRT Function (Negative) 

DT Data Type Does Not Agree With FORMAT 

Specification 

EF EOF Encountered on READ 



